(deftemplate PC
    (slot client)
    (slot temperaturaProc);mare->defectarea procesoruli
    (slot temperaturaSursa);mare-> defectarea sursei
    (slot virusi);=>pierdere soft
    )
(assert (PC(client 1)(temperaturaProc mare)(temperaturaSursa OK)(virusi nu)))
(assert (PC(client 2)(temperaturaProc OK)(temperaturaSursa mare)(virusi nu)))
(assert (PC(client 3)(temperaturaProc OK)(temperaturaSursa OK)(virusi da)))
(facts)
(run)


(defrule r1
    (PC (client ?n))
    (PC(client ?n)(temperaturaProc mare))
=>
	(printout t "Calculatorului clientului " ?n " Procesor prajit. " crlf)
    )

(run)
(defrule r2
    (PC (client ?n))
    (PC(client ?n)(temperaturaSursa mare))
=>
	(printout t "Calculatorului clientului " ?n " Sursa prajita. " crlf)
    )

(run)
(defrule r3
    (PC (client ?n))
    (PC(client ?n)(virusi da))
=>
	(printout t "Calculatorului clientului " ?n " este virusat. " crlf)
    )

(run)